home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ruthie / instgam3.frm < prev    next >
Text File  |  1995-05-08  |  3KB  |  96 lines

  1. VERSION 2.00
  2. Begin Form InstGame3 
  3.    Caption         =   "RuthieWare"
  4.    ClientHeight    =   4470
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   4950
  8.    Height          =   4875
  9.    Left            =   1035
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4470
  15.    ScaleWidth      =   4950
  16.    Top             =   1140
  17.    Width           =   5070
  18.    Begin Frame Frame1 
  19.       Height          =   4215
  20.       Left            =   120
  21.       TabIndex        =   0
  22.       Top             =   120
  23.       Width           =   4695
  24.       Begin CommandButton InstContinue 
  25.          Caption         =   "Continue"
  26.          Height          =   375
  27.          Left            =   1680
  28.          TabIndex        =   5
  29.          Top             =   3600
  30.          Width           =   1455
  31.       End
  32.       Begin TextBox InstText2 
  33.          BorderStyle     =   0  'None
  34.          Enabled         =   0   'False
  35.          Height          =   495
  36.          Left            =   120
  37.          MultiLine       =   -1  'True
  38.          TabIndex        =   4
  39.          Text            =   "Click on the Left Arrow to go to Game 2. Click on the Stop sign to quit."
  40.          Top             =   3000
  41.          Width           =   4455
  42.       End
  43.       Begin TextBox InstText1 
  44.          BorderStyle     =   0  'None
  45.          Enabled         =   0   'False
  46.          Height          =   1215
  47.          Left            =   120
  48.          MultiLine       =   -1  'True
  49.          TabIndex        =   3
  50.          Text            =   "Game 3 requires ""drag and drop"" skills. Click on the picture on the left--that's the ""source"" picture. Drag the picture over the matching picture in the column on the right. If you ""drop"" the picture over its matching pair, you get a happy message. "
  51.          Top             =   1680
  52.          Width           =   4455
  53.       End
  54.       Begin TextBox InstHead 
  55.          BorderStyle     =   0  'None
  56.          Enabled         =   0   'False
  57.          FontBold        =   -1  'True
  58.          FontItalic      =   0   'False
  59.          FontName        =   "MS Sans Serif"
  60.          FontSize        =   12
  61.          FontStrikethru  =   0   'False
  62.          FontUnderline   =   0   'False
  63.          Height          =   375
  64.          Left            =   2160
  65.          TabIndex        =   2
  66.          Text            =   "Playing Game 3"
  67.          Top             =   1200
  68.          Width           =   1815
  69.       End
  70.       Begin PictureBox SuccessPict 
  71.          BorderStyle     =   0  'None
  72.          Height          =   1215
  73.          Left            =   120
  74.          Picture         =   INSTGAM3.FRX:0000
  75.          ScaleHeight     =   1215
  76.          ScaleWidth      =   1935
  77.          TabIndex        =   1
  78.          Top             =   240
  79.          Width           =   1935
  80.       End
  81.    End
  82. End
  83. Sub Form_Load ()
  84.     InstGame3.Left = (Screen.Width - InstGame3.Width) / 2
  85.     InstGame3.Top = (Screen.Height - InstGame3.Height) / 2
  86. End Sub
  87.  
  88. Sub InstContinue_Click ()
  89.     InstGame3.Hide
  90. End Sub
  91.  
  92. Sub SuccessPict_Click ()
  93.     InstContinue_Click
  94. End Sub
  95.  
  96.